home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Start in MyDocs 1.xpl < prev    next >
Text File  |  2001-04-13  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\System\Open Dialog"
  5. "NAME"="Start in My Documents"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Open/Save starts in My Documents"
  8. "DESCRIPTION 1"="When you open or save a file, some programs start in My Documents, instead of C:\. With this program you can disable this behavior."
  9. "DESCRIPTION 2"="Bear in mind that the majority of programs ignore this setting."
  10. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] and TeXHeX [TeXHeX@xteq.com] for the idea!"
  11. "VERSION"="1.0"
  12. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "CONTACTURL"="http://www.neilrt.cwc.net/"
  15.  
  16. 'Declaration of some constants
  17. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Documents\DisableStartInMyDocs"
  18.  
  19. 'Called when the Plugin is started
  20. SUB Plugin_Initialize
  21.  s=RegReadValue(sP)
  22.  if s=0 OR IsEmpty(s) then
  23.   Call SetUIElement(1,true)
  24.  end if
  25.  
  26.  ' I think there should be a SetUIElephant :)
  27. END SUB
  28.  
  29. 'Called when the Plugin should validate the Data the user has entered
  30. SUB Plugin_CheckData(ElementIndex)
  31. END SUB
  32.  
  33. 'Called when the Plugin should apply the changes
  34. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  s=GetUIElement(1)
  36.  if s=true then
  37.   Call RegWriteValue(sP,0,2)
  38.  else
  39.   Call RegWriteValue(sP,1,2)
  40.  end if
  41. END SUB
  42.  
  43. 'Called when the Plugin is about to be removed from memory
  44. SUB Plugin_Terminate
  45. END SUB
  46.